home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / tclmotif.1 / tclmotif / tm.1.2 / src / tmCommands.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-03  |  46.9 KB  |  1,870 lines
  1. /* 
  2.  * tmCommands.c --
  3.  *
  4.  *    This module implements the tcl widget commands
  5.  *
  6.  * Copyright 1993 Jan Newmarch, University of Canberra.
  7.  * Permission to use, copy, modify, and distribute this
  8.  * software and its documentation for any purpose and without
  9.  * fee is hereby granted, provided that the above copyright
  10.  * notice appear in all copies.  The author
  11.  * makes no representations about the suitability of this
  12.  * software for any purpose.  It is provided "as is" without
  13.  * express or implied warranty.
  14.  *
  15.  * Copyright 1990-1992 Regents of the University of California.
  16.  * Permission to use, copy, modify, and distribute this
  17.  * software and its documentation for any purpose and without
  18.  * fee is hereby granted, provided that the above copyright
  19.  * notice appear in all copies.  The University of California
  20.  * makes no representations about the suitability of this
  21.  * software for any purpose.  It is provided "as is" without
  22.  * express or implied warranty.
  23.  */
  24.  
  25. #ifndef lint
  26. static char rcsid[] = "$Header";
  27. #endif
  28.  
  29. #include "tm.h"
  30. #include "tmFuncs.h"
  31. #ifndef MOTIF11
  32. #include <Xm/DragDrop.h>
  33. #endif
  34. #include <Xm/Command.h>
  35. #include <Xm/List.h>
  36. #include <Xm/Text.h>
  37. #include <Xm/RowColumn.h>
  38.         
  39. /*--------------------------------------------------------------
  40.  *
  41.  * Tm_AnyWidgetCmd --
  42.  *
  43.  *    This procedure is invoked to process the Tcl command
  44.  *    that corresponds to a widget managed by this module.
  45.  *    See the user documentation for details on what it does.
  46.  *
  47.  * Results:
  48.  *    A standard Tcl result.
  49.  *
  50.  * Side effects:
  51.  *    See the user documentation.
  52.  *
  53.  *--------------------------------------------------------------
  54.  */
  55.  
  56. int
  57. Tm_AnyWidgetCmd(clientData, interp, argc, argv)
  58.     ClientData clientData;    /* Information about button widget. */
  59.     Tcl_Interp *interp;        /* Current interpreter. */
  60.     int argc;            /* Number of arguments. */
  61.     char **argv;        /* Argument strings. */
  62. {
  63.     Tm_Widget *wPtr = (Tm_Widget *) clientData;
  64.     Widget w = wPtr->widget;
  65.     char c;
  66.     Arg args[TM_MAXARGS];
  67.     int num_args;
  68.     int bool_val;
  69.  
  70.     if (argc < 2) {
  71.     sprintf(interp->result,
  72.         "wrong # args: should be \"%.50s option [arg arg ...]\"",
  73.         argv[0]);
  74.     return TCL_ERROR;
  75.     }
  76.     c = argv[1][0];
  77.  
  78.  
  79.     if ((c == 'c') && (strcmp(argv[1], "callActionProc") == 0)) {
  80.     XEvent xev;
  81.     char *action;
  82.     char *params[TM_NUM_PARAMS];
  83.     Cardinal num_params;
  84.  
  85.     if (argc < 3) {
  86.         sprintf(interp->result, "wrong # args: should be \"%.50s callActionProc \
  87. action", argv[0]);
  88.         return TCL_ERROR;
  89.     }
  90.  
  91.     if (Tm_MakeXEvent(wPtr->widget, interp, &xev, argc-3, argv+3) == TCL_ERROR)
  92.        return TCL_ERROR;
  93.     Tm_ClearResult(interp);
  94.     Tm_StartSavingResult(interp);
  95.     if (Tm_ParseAction(argv[2], &action, params, &num_params) != TCL_OK) {
  96.         Tm_StopSavingResult(interp);
  97.         XtFree(action);
  98.         sprintf(interp->result, "parse error in action \"%.50s\"", argv[2]);
  99.         return TCL_ERROR;
  100.     }
  101.  
  102.     XtCallActionProc(wPtr->widget, action, &xev, params, num_params);
  103.     
  104.     XtFree(action);
  105.     Tm_StopSavingResult(interp);
  106.     Tcl_SetResult(interp, Tm_Result(interp), TCL_VOLATILE);
  107.  
  108.     return TCL_OK;
  109.     } else
  110.  
  111.     if ((c == 'd') && (strcmp(argv[1], "defineCursor") == 0)) {
  112.     XrmValue from, to;
  113.     Cursor cursor;
  114.  
  115.     if (argc < 3) {
  116.         sprintf(interp->result, "wrong # args: should be \"%.50s defineCursor \
  117. value", argv[0]);
  118.         return TCL_ERROR;
  119.     }
  120.  
  121.     if (!XtIsRealized(w)) {
  122.             sprintf(interp->result, "widget must be realized: \"%.50s defineCursor \
  123. value", argv[0]);
  124.             return TCL_ERROR;
  125.         }
  126.  
  127.     /* special case: "" restores default */
  128.     if (argv[2][0] == '\0') {
  129.         XDefineCursor(XtDisplay(w), XtWindow(w), None);
  130.         return TCL_OK;
  131.     }
  132.  
  133.     from.addr = argv[2];
  134.     from.size = sizeof(String);
  135.     to.size = sizeof(Cursor *);
  136.     to.addr = (caddr_t) &cursor;
  137.  
  138.     if (XtConvertAndStore(w, XmRString, &from,
  139.                 XmRCursor, &to)) {
  140.         XDefineCursor(XtDisplay(w), XtWindow(w),* (Cursor *) to.addr);
  141.     } else {
  142.         sprintf(interp->result, "wrong cursor to \"%.50s defineCursor \
  143. value", argv[0]);
  144.         return TCL_ERROR;
  145.     }
  146.     } else
  147.  
  148.     if ((c == 'd') && (strcmp(argv[1], "destroyWidget") == 0)) {
  149.     /* destroy - most stuff done in DestroyWidgetHandler */
  150.  
  151.     XtDestroyWidget(wPtr->widget);
  152.     } else
  153.  
  154. #ifndef MOTIF11
  155.     if ((c == 'd') && (strcmp(argv[1], "dragStart") == 0)) {
  156.         Arg args[TM_MAXARGS];
  157.         int num_args;
  158.     Widget w;
  159.     extern XEvent *Tm_HackXEvent;    /* global hack to get event right here */
  160.     extern Tm_Widget *Tm_HackDragWidgetPtr; /* hack to get wPtr into StrFunc
  161.                     converter and to ConvertProcHandler */
  162.  
  163. /*
  164.     Tm_DropSiteSetValues(wPtr->pathName, interp, wPtr->widget,
  165.                                 argv+2, argc-2, args, &num_args);
  166. */
  167.     Tm_HackDragWidgetPtr = wPtr;
  168.  
  169.     w = XmDragStart(wPtr->widget, Tm_HackXEvent, NULL, 0);
  170.     Tm_SetValues(wPtr->pathName, interp, w, w, XtClass(w),
  171.                 argv+2, argc-2, args, &num_args);
  172.     XtSetValues(w, args, num_args);
  173.  
  174.     } else
  175.  
  176.     if ((c == 'd') && (strcmp(argv[1], "dropSiteRegister") == 0)) {
  177.         Arg args[TM_MAXARGS];
  178.         int num_args;
  179.  
  180.     Tm_DropSiteSetValues(wPtr->pathName, interp, wPtr->widget,
  181.                                 argv+2, argc-2, args, &num_args);
  182.     XmDropSiteRegister(wPtr->widget, args, num_args);
  183.  
  184.     } else
  185. #endif
  186.  
  187.     if ((c == 'g') && (strcmp(argv[1], "getAppResources") == 0)) {
  188.     if (argc < 3) {
  189.         sprintf(interp->result, "wrong # args: should be \"%.50s getAppResources \
  190. resourceList\"", argv[0]);
  191.         return TCL_ERROR;
  192.     }
  193.     return(Tm_GetAppResources(interp, w, argv[2]));
  194.     } else
  195.  
  196.     if ((c == 'g') && (strcmp(argv[1], "getGC") == 0)) {
  197.     if (argc < 4) {
  198.         sprintf(interp->result, "wrong # args: should be \"%.50s setValues \
  199. -option value...", argv[0]);
  200.         return TCL_ERROR;
  201.     }
  202.     interp->result =
  203.         Tm_GetGC(wPtr->pathName, interp, (Widget) wPtr->widget, 
  204.                 XtClass(wPtr->widget), argv+2, argc-2);
  205.     } else
  206.  
  207.     if ((c == 'g') && (strcmp(argv[1], "getValues") == 0)) {
  208.     if (argc < 4) {
  209.         sprintf(interp->result, "wrong # args: should be \"%.50s setValues \
  210. -option value...", argv[0]);
  211.         return TCL_ERROR;
  212.     }
  213.         Tm_InitFreeResourceList((argc - 2)/2);
  214.     if (Tm_GetValues(wPtr->pathName, interp, (Widget) wPtr->widget, 
  215.             XtClass(wPtr->widget), argv+2, argc-2) == TCL_ERROR)
  216.         return TCL_ERROR;
  217.     Tm_FreeResourceList();
  218.     } else
  219.  
  220.     if ((c == 'i') && (strcmp(argv[1], "isComposite") == 0)) {
  221.     if (XtIsComposite(wPtr->widget)) {
  222.         interp->result = "true";
  223.     } else {
  224.         interp->result = "false";
  225.     }
  226.     } else
  227.  
  228.     if ((c == 'i') && (strcmp(argv[1], "isConstraint") == 0)) {
  229.     if (XtIsConstraint(wPtr->widget)) {
  230.         interp->result = "true";
  231.     } else {
  232.         interp->result = "false";
  233.     }
  234.     } else
  235.  
  236.     if ((c == 'i') && (strcmp(argv[1], "isManaged") == 0)) {
  237.     if (XtIsManaged(wPtr->widget)) {
  238.         interp->result = "true";
  239.     } else {
  240.         interp->result = "false";
  241.     }
  242.     } else
  243.  
  244.     if ((c == 'i') && (strcmp(argv[1], "isSensitive") == 0)) {
  245.     if (XtIsSensitive(wPtr->widget)) {
  246.         interp->result = "true";
  247.     } else {
  248.         interp->result = "false";
  249.     }
  250.     } else
  251.  
  252.     if ((c == 'i') && (strcmp(argv[1], "isShell") == 0)) {
  253.     if (XtIsShell(wPtr->widget)) {
  254.         interp->result = "true";
  255.     } else {
  256.         interp->result = "false";
  257.     }
  258.     } else
  259.  
  260.     if ((c == 'm') && (strcmp(argv[1], "manageChild") == 0)) {
  261.     /* manageChild */
  262.     XtManageChild(wPtr->widget);
  263.     } else
  264.  
  265.     if ((c == 'm') && (strcmp(argv[1], "mapWidget") == 0)) {
  266.     XtMapWidget(wPtr->widget);
  267.     } else
  268.  
  269.     if ((c == 'p') && (strcmp(argv[1], "parent") == 0)) {
  270.     Tcl_SetResult(interp, XtNewString(wPtr->parent), 
  271.             TCL_DYNAMIC);
  272.     } else
  273.  
  274. #ifndef MOTIF11
  275.     if ((c == 'p') && (strcmp(argv[1], "processTraversal") == 0)) {
  276.     XmTraversalDirection direction;
  277.  
  278.     if (argc != 3) {
  279.         sprintf(interp->result, "wrong # args: should be \"%.50s processTraversal \
  280. direction", argv[0]);
  281.         return TCL_ERROR;
  282.     }
  283.  
  284.     if (strcmp(argv[2], "current") == 0) {
  285.         direction = XmTRAVERSE_CURRENT;
  286.     } else
  287.     if (strcmp(argv[2], "down") == 0) {
  288.         direction = XmTRAVERSE_DOWN;
  289.     } else
  290.     if (strcmp(argv[2], "home") == 0) {
  291.         direction = XmTRAVERSE_HOME;
  292.     } else
  293.     if (strcmp(argv[2], "left") == 0) {
  294.         direction = XmTRAVERSE_LEFT;
  295.     } else
  296.     if (strcmp(argv[2], "next") == 0) {
  297.         direction = XmTRAVERSE_NEXT;
  298.     } else
  299.     if (strcmp(argv[2], "next_tab_group") == 0) {
  300.         direction = XmTRAVERSE_NEXT_TAB_GROUP;
  301.     } else
  302.     if (strcmp(argv[2], "prev") == 0) {
  303.         direction = XmTRAVERSE_PREV;
  304.     } else
  305.     if (strcmp(argv[2], "prev_tab_group") == 0) {
  306.         direction = XmTRAVERSE_PREV_TAB_GROUP;
  307.     } else
  308.     if (strcmp(argv[2], "right") == 0) {
  309.         direction = XmTRAVERSE_RIGHT;
  310.     } else
  311.     if (strcmp(argv[2], "up") == 0) {
  312.         direction = XmTRAVERSE_UP;
  313.     } else {
  314.         sprintf(interp->result, "unknown traversal option \"%s\"", argv[2]);
  315.         return TCL_ERROR;
  316.     }     
  317.     
  318.     XmProcessTraversal(w, direction);
  319.     return TCL_OK;
  320.     } else
  321. #endif /* MOTIF11 */
  322.  
  323.     if ((c == 'r') && (strcmp(argv[1], "realizeWidget") == 0)) {
  324.     XtRealizeWidget(wPtr->widget);
  325.     } else
  326.  
  327.     if ((c == 'r') && (strcmp(argv[1], "resources") == 0)) {
  328.     Tm_ResourceList(interp, wPtr->widget, XtClass(wPtr->widget));
  329.     } else
  330.  
  331.     if ((c == 's') && (strcmp(argv[1], "setSensitive") == 0)) {
  332.     /* set Sensitive */
  333.     if (argc < 3) {
  334.         sprintf(interp->result, "wrong # args: should be \"%.50s setSensitive \
  335. -option value", argv[0]);
  336.         return TCL_ERROR;
  337.     }
  338.     if (Tcl_GetBoolean(interp, argv[2], &bool_val) == TCL_ERROR) {
  339.         return TCL_ERROR;
  340.     }
  341.     XtSetSensitive(wPtr->widget, bool_val);
  342.     } else
  343.  
  344.     if ((c == 's') && (strcmp(argv[1], "setValues") == 0)) {
  345.     if (argc < 4) {
  346.         sprintf(interp->result, "wrong # args: should be \"%.50s setValues \
  347. -option value...", argv[0]);
  348.         return TCL_ERROR;
  349.     }
  350.     Tm_InitFreeResourceList((argc - 2)/2);
  351.  
  352.     if ( ! XtIsShell(wPtr->widget)) {
  353.         /* this case to prevent Xt errors on XtParent of "." */
  354.         if (Tm_SetValues(wPtr->pathName, interp, wPtr->widget,
  355.             XtParent(wPtr->widget), 
  356.             XtClass(wPtr->widget), argv+2,
  357.             argc-2, args, &num_args) == TCL_ERROR)
  358.         return TCL_ERROR;
  359.     } else {
  360.         if (Tm_SetValues(wPtr->pathName, interp, wPtr->widget,
  361.             wPtr->widget, 
  362.             XtClass(wPtr->widget), argv+2,
  363.             argc-2, args, &num_args) == TCL_ERROR)
  364.         return TCL_ERROR;
  365.     }
  366.     XtSetValues(wPtr->widget, args, num_args);
  367.     Tm_FreeResourceList();
  368.     } else
  369.     if ((c == 'u') && (strcmp(argv[1], "unmanageChild") == 0)) {
  370.     /* unmanage child */
  371.     XtUnmanageChild(wPtr->widget);
  372.     } else
  373.  
  374.     if ((c == 'u') && (strcmp(argv[1], "unmapWidget") == 0)) {
  375.     XtUnmapWidget(wPtr->widget);
  376.     } else
  377.  
  378.     if (strstr(argv[1], "Callback") != NULL) {
  379.     Tm_ClientData *client_data;
  380.  
  381.     client_data = (Tm_ClientData *) XtMalloc(sizeof(Tm_ClientData));
  382. /*
  383.     client_data->callback_func = XtNewString(argv[2]);
  384. */
  385.     if (argc == 3) {
  386.         /* for backward compatability with eg argv[2] = {do it} */
  387.         client_data->callback_func = XtNewString(argv[2]);
  388.     } else {
  389.         client_data->callback_func = Tcl_Merge(argc - 2, argv + 2);
  390.     }
  391.     client_data->widget_info = wPtr;
  392.     XtAddCallback(wPtr->widget, argv[1], Tm_WidgetCallbackHandler,
  393.         (XtPointer) client_data);
  394.     XtAddCallback(wPtr->widget, XmNdestroyCallback, 
  395.         Tm_DestroyReclaimHandler, (XtPointer) client_data);
  396.     } else {
  397.     goto error;
  398.     }
  399.     return TCL_OK;
  400.  
  401.     error:
  402.     sprintf(interp->result, "%s: unknown option \"%s\"", argv[0], argv[1]);
  403.     return TCL_ERROR;
  404. }
  405.  
  406.  
  407. /*
  408.  *--------------------------------------------------------------
  409.  *
  410.  * Tm_CommandWidgetCmd --
  411.  *
  412.  *    This function processes the commands that may be applied
  413.  *    to a command widget.
  414.  *
  415.  * Results:
  416.  *
  417.  * Side effects:
  418.  *
  419.  *--------------------------------------------------------------
  420.  */
  421.  
  422. int
  423. Tm_CommandWidgetCmd (clientData, interp, argc, argv)
  424.     ClientData clientData;
  425.     Tcl_Interp *interp;
  426.     int argc;
  427.     char **argv;
  428. {
  429.     Tm_Widget *wPtr = (Tm_Widget *) clientData;
  430.     Widget w;
  431.     char c;
  432.  
  433.     if (argc < 2) {
  434.     sprintf(interp->result,
  435.         "wrong # args: should be \"%.50s option [arg arg ...]\"",
  436.         argv[0]);
  437.     return TCL_ERROR;
  438.     }
  439.  
  440.     w = wPtr -> widget;
  441.  
  442.     c = argv[1][0];
  443.     if ((c == 'a') && (strcmp(argv[1], "appendValue") == 0)) {
  444.     XrmValue from, toItem;
  445.     XmString xmstr;
  446.  
  447.     if (argc != 4) {
  448.         sprintf(interp->result,
  449.         "wrong # args: should be \"%.50s appendValue command\"",
  450.         argv[0]);
  451.         return TCL_ERROR;
  452.     }
  453.  
  454.     from.addr = argv[2];
  455.     from.size = strlen(argv[2]) + 1;
  456.     toItem.addr = (caddr_t) &xmstr;
  457.     toItem.size = sizeof(XmString *);
  458.     XtConvertAndStore(w, XtRString, &from, XmRXmString, &toItem);
  459.  
  460.     XmCommandAppendValue(w, *(XmString *) toItem.addr);
  461.     } else
  462.  
  463.     if ((c == 'e') && (strcmp(argv[1], "error") == 0)) {
  464.         XrmValue from, toItem;
  465.         XmString xmstr;
  466.  
  467.         if (argc != 4) {
  468.             sprintf(interp->result,
  469.                 "wrong # args: should be \"%.50s error msg\"",
  470.                 argv[0]);
  471.             return TCL_ERROR;
  472.         }
  473.  
  474.         from.addr = argv[2];
  475.         from.size = strlen(argv[2]) + 1;
  476.         toItem.addr = (caddr_t) &xmstr;
  477.         toItem.size = sizeof(XmString *);
  478.         XtConvertAndStore(w, XtRString, &from, XmRXmString, &toItem);
  479.  
  480.         XmCommandError(w, *(XmString *) toItem.addr);
  481.     } else
  482.  
  483.     if ((c == 's') && (strcmp(argv[1], "setValue") == 0)) {
  484.         XrmValue from, toItem;
  485.         XmString xmstr;
  486.  
  487.         if (argc != 4) {
  488.             sprintf(interp->result,
  489.                 "wrong # args: should be \"%.50s setValue command\"",
  490.                 argv[0]);
  491.             return TCL_ERROR;
  492.         }
  493.  
  494.         from.addr = argv[2];
  495.         from.size = strlen(argv[2]) + 1;
  496.         toItem.addr = (caddr_t) &xmstr;
  497.         toItem.size = sizeof(XmString *);
  498.         XtConvertAndStore(w, XtRString, &from, XmRXmString, &toItem);
  499.  
  500.         XmCommandSetValue(w, *(XmString *) toItem.addr);
  501.     } else {
  502.         return Tm_AnyWidgetCmd(clientData, interp, argc, argv);
  503.     }
  504.     return TCL_OK;
  505. }
  506.  
  507.  
  508.  
  509. /*
  510.  *--------------------------------------------------------------
  511.  *
  512.  * Tm_ListWidgetCmd --
  513.  *
  514.  *    This function processes the commands that may be applied
  515.  *    to a list widget.
  516.  *
  517.  * Results:
  518.  *
  519.  * Side effects:
  520.  *
  521.  *--------------------------------------------------------------
  522.  */
  523.  
  524. int
  525. Tm_ListWidgetCmd (clientData, interp, argc, argv)
  526.     ClientData clientData;
  527.     Tcl_Interp *interp;
  528.     int argc;
  529.     char **argv;
  530. {
  531.     Tm_Widget *wPtr = (Tm_Widget *) clientData;
  532.     Widget w;
  533.     char c;
  534.  
  535.     if (argc < 2) {
  536.     sprintf(interp->result,
  537.         "wrong # args: should be \"%.50s option [arg arg ...]\"",
  538.         argv[0]);
  539.     return TCL_ERROR;
  540.     }
  541.  
  542.     w = wPtr -> widget;
  543.  
  544.     c = argv[1][0];
  545.  
  546.     if ((c == 'a') && (strcmp(argv[1], "addItem") == 0)) {
  547.     /* add item */
  548.     XrmValue from, toItem;
  549.     int position;
  550.     XmString xmstr;
  551.  
  552.     if (argc != 4) {
  553.         sprintf(interp->result,
  554.         "wrong # args: should be \"%.50s addItem item position\"",
  555.         argv[0]);
  556.         return TCL_ERROR;
  557.     }
  558.  
  559.     if (Tcl_GetInt(interp, argv[3], &position) == TCL_ERROR) {
  560.         return TCL_ERROR;
  561.     }
  562.  
  563.     from.addr = argv[2];
  564.     from.size = strlen(argv[2]) + 1;
  565.     toItem.addr = (caddr_t) &xmstr;
  566.     toItem.size = sizeof(XmString *);
  567.     XtConvertAndStore(w, XtRString, &from, XmRXmString, &toItem);
  568.  
  569.     XmListAddItem(w, *(XmString *) toItem.addr, position);
  570.     /* don't free this sucker! DestroyWidget will look after it!!!
  571.         XmStringFree(*(XmString *) toItem.addr);
  572.      */
  573.     /* using our own converters, we free it now 
  574.      */
  575.     XmStringFree(*(XmString *) toItem.addr);
  576.  
  577. /*
  578.     xmstr = XmStringCreateLocalized(argv[2]);
  579.     XmListAddItem(w, xmstr, position);
  580.     XmStringFree(xmstr);
  581. */
  582.     } else
  583.  
  584.     if ((c == 'a') && (strcmp(argv[1], "addItemUnselected") == 0)) {
  585.     /* add item */
  586.     XrmValue from, toItem;
  587.     int position;
  588.     XmString xmstr;
  589.  
  590.     if (argc != 4) {
  591.         sprintf(interp->result,
  592.         "wrong # args: should be \"%.50s addItem item position\"",
  593.         argv[0]);
  594.         return TCL_ERROR;
  595.     }
  596.  
  597.     if (Tcl_GetInt(interp, argv[3], &position) == TCL_ERROR) {
  598.         return TCL_ERROR;
  599.     }
  600.  
  601.     from.addr = argv[2];
  602.     from.size = strlen(argv[2]) + 1;
  603.     toItem.addr = (caddr_t) &xmstr;
  604.     toItem.size = sizeof(XmString *);
  605.     XtConvertAndStore(w, XtRString, &from, XmRXmString, &toItem);
  606.  
  607.     XmListAddItemUnselected(w, *(XmString *) toItem.addr, position);
  608.     /* don't free this sucker! DestroyWidget will look after it!!!
  609.         XmStringFree(*(XmString *) toItem.addr);
  610.      */
  611.     XmStringFree(*(XmString *) toItem.addr);
  612.     } else
  613.  
  614. #ifndef MOTIF11
  615.     if ((c == 'd') && (strcmp(argv[1], "deleteAllItems") == 0)) {
  616.     XmListDeleteAllItems(w);
  617.     } else
  618. #endif
  619.  
  620.     if ((c == 'd') && (strcmp(argv[1], "deleteItem") == 0)) {
  621.     XrmValue from, toItem;
  622.  
  623.     if (argc != 3) {
  624.         sprintf(interp->result,
  625.         "wrong # args: should be \"%.50s deleteItem item\"",
  626.         argv[0]);
  627.         return TCL_ERROR;
  628.     }
  629.     from.addr = argv[2];
  630.     from.size = strlen(argv[2]) + 1;
  631.     toItem.addr = NULL;
  632.     XtConvertAndStore(w, XtRString, &from, XmRXmString, &toItem);
  633.  
  634.     XmListDeleteItem(w, *(XmString *) toItem.addr);
  635.  
  636.     /* don't free this sucker! DestroyWidget will look after it!!!
  637.         XmStringFree(*(XmString *) toItem.addr);
  638.      */
  639.     /* using our converter, do so */
  640.     XmStringFree(*(XmString *) toItem.addr);
  641.     
  642.     } else
  643.  
  644.     if ((c == 'd') && (strcmp(argv[1], "deletePosition") == 0)) {
  645.     int position;
  646.  
  647.     if (argc != 3) {
  648.         sprintf(interp->result,
  649.         "wrong # args: should be \"%.50s deletePosition position\"",
  650.         argv[0]);
  651.         return TCL_ERROR;
  652.     }
  653.     if (Tcl_GetInt(interp, argv[2], &position) == TCL_ERROR) {
  654.         return TCL_ERROR;
  655.     }
  656.     XmListDeletePos(w, position);
  657.     } else
  658.  
  659.     if ((c == 'd') && (strcmp(argv[1], "deselectAllItems") == 0)) {
  660.     XmListDeselectAllItems(w);
  661.     } else
  662.  
  663.     if ((c == 'd') && (strcmp(argv[1], "deselectItem") == 0)) {
  664.     XrmValue from, toItem;
  665.  
  666.     if (argc != 3) {
  667.         sprintf(interp->result,
  668.         "wrong # args: should be \"%.50s deselectItem item\"",
  669.         argv[0]);
  670.         return TCL_ERROR;
  671.     }
  672.     from.addr = argv[2];
  673.     from.size = strlen(argv[2]) + 1;
  674.     toItem.addr = NULL;
  675.     XtConvertAndStore(w, XtRString, &from, XmRXmString, &toItem);
  676.  
  677.     XmListDeselectItem(w, *(XmString *) toItem.addr);
  678.  
  679.     /* don't free this sucker! DestroyWidget will look after it!!!
  680.         XmStringFree(*(XmString *) toItem.addr);
  681.      */
  682.     /* using our converter, free it */
  683.     XmStringFree(*(XmString *) toItem.addr);
  684.  
  685.     } else
  686.  
  687.     if ((c == 'd') && (strcmp(argv[1], "deselectPosition") == 0)) {
  688.     int position;
  689.  
  690.     if (argc != 3) {
  691.         sprintf(interp->result,
  692.         "wrong # args: should be \"%.50s deselectPosition position\"",
  693.         argv[0]);
  694.         return TCL_ERROR;
  695.     }
  696.     if (Tcl_GetInt(interp, argv[2], &position) == TCL_ERROR) {
  697.         return TCL_ERROR;
  698.     }
  699.     XmListDeselectPos(w, position);
  700.     } else
  701.  
  702.     if ((c == 'i') && (strcmp(argv[1], "itemExists") == 0)) {
  703.     XrmValue from, toItem;
  704.  
  705.     if (argc != 3) {
  706.         sprintf(interp->result,
  707.         "wrong # args: should be \"%.50s itemExists item\"",
  708.         argv[0]);
  709.         return TCL_ERROR;
  710.     }
  711.         from.addr = argv[2];
  712.         from.size = strlen(argv[2]) + 1;
  713.         toItem.addr = NULL;
  714.         XtConvertAndStore(w, XtRString, &from, XmRXmString, &toItem);
  715.  
  716.     if (XmListItemExists(w, *(XmString *) toItem.addr)) {
  717.         sprintf(interp->result, "true");
  718.     } else {
  719.         sprintf(interp->result, "false");
  720.     }
  721.     XmStringFree(*(XmString *) toItem.addr);
  722.     } else
  723.  
  724. #ifndef MOTIF11
  725.     if ((c == 'i') && (strcmp(argv[1], "itemPosition") == 0)) {
  726.     XrmValue from, toItem;
  727.     int position;
  728.  
  729.         if (argc != 3) {
  730.             sprintf(interp->result,
  731.                 "wrong # args: should be \"%.50s itemPosition item\"",
  732.                 argv[0]);
  733.             return TCL_ERROR;
  734.         }
  735.         from.addr = argv[2];
  736.         from.size = strlen(argv[2]) + 1;
  737.         toItem.addr = NULL;
  738.         XtConvertAndStore(w, XtRString, &from, XmRXmString, &toItem);
  739.  
  740.     position = XmListItemPos(w, *(XmString *)toItem.addr);
  741.     sprintf(interp->result, "%d", position);
  742.     XmStringFree(*(XmString *)toItem.addr);
  743.     } else
  744. #endif
  745.  
  746. #ifndef MOTIF11
  747.     if ((c == 'p') && (strcmp(argv[1], "positionSelected") == 0)) {
  748.         int position;
  749.  
  750.         if (argc != 3) {
  751.             sprintf(interp->result,
  752.                 "wrong # args: should be \"%.50s positionSelected position\"",
  753.                 argv[0]);
  754.             return TCL_ERROR;
  755.         }
  756.         if (Tcl_GetInt(interp, argv[2], &position) == TCL_ERROR) {
  757.             return TCL_ERROR;
  758.         }
  759.  
  760.     if (XmListPosSelected(w, position)) {
  761.         strcpy(interp->result, "true");
  762.     } else {
  763.         strcpy(interp->result, "false");
  764.     }
  765.     } else
  766. #endif
  767.  
  768.     if ((c == 's') && (strcmp(argv[1], "selectItem") == 0)) {
  769.         XrmValue from, toItem;
  770.     int call_callback;
  771.  
  772.         if (argc != 4) {
  773.             sprintf(interp->result,
  774.                 "wrong # args: should be \"%.50s selectItem item notify\"",
  775.                 argv[0]);
  776.             return TCL_ERROR;
  777.         }
  778.         from.addr = argv[2];
  779.         from.size = strlen(argv[2]) + 1;
  780.         toItem.addr = NULL;
  781.         XtConvertAndStore(w, XtRString, &from, XmRXmString, &toItem);
  782.  
  783.         if (Tcl_GetBoolean(interp, argv[3], &call_callback) == TCL_ERROR) {
  784.             return TCL_ERROR;
  785.         }
  786.  
  787.     XmListSelectItem(w, *(XmString *) toItem.addr, call_callback);
  788.     XmStringFree(*(XmString *) toItem.addr);
  789.     } else
  790.  
  791.     if ((c == 's') && (strcmp(argv[1], "selectPosition") == 0)) {
  792.     int position;
  793.     int call_callback;
  794.  
  795.     if (argc != 4) {
  796.         sprintf(interp->result,
  797.         "wrong # args: should be \"%.50s selectPosition position call_callback\"",
  798.         argv[0]);
  799.         return TCL_ERROR;
  800.     }
  801.     if (Tcl_GetInt(interp, argv[2], &position) == TCL_ERROR) {
  802.         return TCL_ERROR;
  803.     }
  804.     if (Tcl_GetBoolean(interp, argv[3], &call_callback) == TCL_ERROR) {
  805.         return TCL_ERROR;
  806.     }
  807.     XmListSelectPos(w, position, call_callback);
  808.     } else
  809.  
  810.     if ((c == 's') && (strcmp(argv[1], "setBottomItem") == 0)) {
  811.     XrmValue from, toItem;
  812.  
  813.     if (argc != 3) {
  814.         sprintf(interp->result,
  815.         "wrong # args: should be \"%.50s setBottomItem item\"",
  816.         argv[0]);
  817.         return TCL_ERROR;
  818.     }
  819.         from.addr = argv[2];
  820.         from.size = strlen(argv[2]) + 1;
  821.         toItem.addr = NULL;
  822.         XtConvertAndStore(w, XtRString, &from, XmRXmString, &toItem);
  823.  
  824.     XmListSetBottomItem(w, *(XmString *) toItem.addr);
  825.     XmStringFree(*(XmString *) toItem.addr);
  826.  
  827.     } else
  828.  
  829.     if ((c == 's') && (strcmp(argv[1], "setBottomPosition") == 0)) {
  830.     int position;
  831.  
  832.         if (argc != 3) {
  833.             sprintf(interp->result,
  834.                 "wrong # args: should be \"%.50s setBottomPosition item\"",
  835.                 argv[0]);
  836.             return TCL_ERROR;
  837.         }
  838.  
  839.     if (Tcl_GetInt(interp, argv[2], &position) == TCL_ERROR) {
  840.         return TCL_ERROR;
  841.     }
  842.     XmListSetBottomPos(w, position);
  843.     } else
  844.  
  845.     if ((c == 's') && (strcmp(argv[1], "setItem") == 0)) {
  846.     XrmValue from, toItem;
  847.  
  848.     if (argc != 3) {
  849.         sprintf(interp->result,
  850.         "wrong # args: should be \"%.50s setItem item\"",
  851.         argv[0]);
  852.         return TCL_ERROR;
  853.     }
  854.         from.addr = argv[2];
  855.         from.size = strlen(argv[2]) + 1;
  856.         toItem.addr = NULL;
  857.         XtConvertAndStore(w, XtRString, &from, XmRXmString, &toItem);
  858.  
  859.     XmListSetItem(w, *(XmString *) toItem.addr);
  860.     XmStringFree(*(XmString *) toItem.addr);
  861.  
  862.     } else
  863.  
  864.     if ((c == 's') && (strcmp(argv[1], "setPosition") == 0)) {
  865.     int position;
  866.  
  867.         if (argc != 3) {
  868.             sprintf(interp->result,
  869.                 "wrong # args: should be \"%.50s setPosition position\"",
  870.                 argv[0]);
  871.             return TCL_ERROR;
  872.         }
  873.  
  874.     if (Tcl_GetInt(interp, argv[2], &position) == TCL_ERROR) {
  875.         return TCL_ERROR;
  876.     }
  877.  
  878.     XmListSetPos(w, position);
  879.     } else {
  880.         return Tm_AnyWidgetCmd(clientData, interp, argc, argv);
  881.     }
  882.     return TCL_OK;
  883. }
  884.  
  885.  
  886. /*
  887.  *--------------------------------------------------------------
  888.  *
  889.  * Tm_RootCmd --
  890.  *
  891.  *    This function processes the commands that may be applied
  892.  *    to the toplevel widget `.'. In addition to all the normal
  893.  *    commands, the extra ones are the Xt ones that use the
  894.  *    AppContext - in tclMotif, we only have one of these, so
  895.  *    it is sensible to attach them to `.'.
  896.  *
  897.  * Results:
  898.  *
  899.  * Side effects:
  900.  *
  901.  *--------------------------------------------------------------
  902.  */
  903.  
  904. int
  905. Tm_RootCmd (clientData, interp, argc, argv)
  906.     ClientData clientData;
  907.     Tcl_Interp *interp;
  908.     int argc;
  909.     char **argv;
  910. {
  911.     Tm_Widget *wPtr = (Tm_Widget *) clientData;
  912.     Widget w;
  913.     char c;
  914.     XtAppContext appContext;
  915.  
  916.     if (argc < 2) {
  917.     sprintf(interp->result,
  918.         "wrong # args: should be \"%.50s option [arg arg ...]\"",
  919.         argv[0]);
  920.     return TCL_ERROR;
  921.     }
  922.  
  923.     w = wPtr -> widget;
  924.     appContext = XtWidgetToApplicationContext(wPtr->widget);
  925.  
  926.     c = argv[1][0];
  927.  
  928.     if ((c == 'a') && (strcmp(argv[1], "addInput") == 0)) {
  929.     Tm_InputData *input;
  930.     int filenum;
  931.     char *end;
  932.     XtInputId inputId;
  933.     char ch;
  934.  
  935.     if (argc < 4) {
  936.         sprintf(interp->result, "wrong # args: should be \"%.50s fileID \
  937. permissions tcl_code", argv[0]);
  938.         return TCL_ERROR;
  939.     }
  940.  
  941.     input = (Tm_InputData *) XtMalloc(sizeof(Tm_InputData));
  942.     input->interp = interp;
  943.     input->command = XtNewString(argv[4]);
  944.  
  945.     /* determine file number */
  946.     if (strcmp(argv[2], "stdin") == 0) {
  947.         filenum = 0;
  948.     } else
  949.     if (strcmp(argv[2], "stdout") == 0) {
  950.         filenum = 1;
  951.     } else
  952.     if (strcmp(argv[2], "stderr") == 0) {
  953.         filenum = 2;
  954.     } else
  955.     if (strncmp(argv[2], "file", 4) == 0) {
  956.         end = argv[2] + 4;
  957.         if (sscanf(end, "%d", &filenum) < 1) {
  958.         sprintf(interp->result, "unknow file number \"%s\"", argv[2]);
  959.         return TCL_ERROR;
  960.         };
  961.     } else {
  962.         Tcl_SetResult(interp, "unknown file", TCL_STATIC);
  963.         return TCL_ERROR;
  964.     }
  965.  
  966.     if (strlen(argv[3]) != 1) {
  967.         Tcl_SetResult(interp, "addInput: only one of r,w,x", TCL_STATIC);
  968.         return TCL_ERROR;
  969.     }
  970.     
  971.     ch = argv[3][0];
  972.     if (ch != 'r' && ch != 'w' && ch != 'x') {
  973.         Tcl_SetResult(interp, "addInput: use only r,w,x as modes", TCL_STATIC);
  974.         return TCL_ERROR;
  975.     }
  976.  
  977.     /* determine modes */
  978.     if (ch == 'r') {
  979.         inputId = XtAppAddInput(appContext, filenum, (XtPointer) XtInputReadMask,
  980.             Tm_InputHandler, (XtPointer) input);
  981.     } else
  982.     if (ch == 'w') {
  983.         inputId = XtAppAddInput(appContext, filenum, (XtPointer) XtInputWriteMask,
  984.             Tm_InputHandler, (XtPointer) input);
  985.     } else
  986.     if (ch == 'x') {
  987.         inputId = XtAppAddInput(appContext, filenum, (XtPointer) XtInputExceptMask,
  988.             Tm_InputHandler, (XtPointer) input);
  989.     }
  990.     
  991.     /* simple type check: prefix Id with "inputId-" */
  992.     sprintf(interp->result, "inputId-%lu", inputId);
  993. #    ifdef DEBUG
  994.         fprintf(stderr, "adding input %lu\n", inputId);
  995. #    endif
  996.     return TCL_OK;
  997.     } else
  998.  
  999.     if ((c == 'a') && (strcmp(argv[1], "addTimer") == 0)) {
  1000.     Tm_TimerData *timer;
  1001.     XtIntervalId timerId;
  1002.     unsigned long interval;
  1003.  
  1004.     if (argc < 3) {
  1005.         sprintf(interp->result,
  1006.             "wrong # args: should be \"%.50s addTimer interval proc \"",
  1007.             argv[0]);
  1008.         return TCL_ERROR;
  1009.     }
  1010.  
  1011.     sscanf(argv[2], "%lu", &interval);
  1012.  
  1013.     timer = (Tm_TimerData *) XtMalloc(sizeof(Tm_TimerData));
  1014.     timer->interp = interp;
  1015.     timer->command = XtNewString(argv[3]);
  1016.     timerId = XtAppAddTimeOut(appContext, interval,
  1017.                         Tm_TimerHandler, (XtPointer) timer);
  1018.  
  1019.     sprintf(interp->result, "timerId-%lu", timerId);
  1020.     return TCL_OK;
  1021.     } else
  1022.  
  1023.     if ((c == 'p') && (strcmp(argv[1], "processEvent") == 0)) {
  1024.     XtAppProcessEvent(appContext, XtIMAll);
  1025.     } else
  1026.  
  1027.     if ((c == 'r') && (strcmp(argv[1], "removeInput") == 0)) {
  1028.     XtInputId inputId;
  1029.  
  1030.     
  1031.     if (argc < 3) {
  1032.         sprintf(interp->result, "wrong # args: should be \"%.50s removeInput \
  1033. inputID\"", argv[0]);
  1034.         return TCL_ERROR;
  1035.     }
  1036.  
  1037.     if (sscanf(argv[2], "inputId-%lu", &inputId) < 1) {
  1038.         sprintf(interp->result, "removeInput: illegal inputId \"%s\"",
  1039.             argv[2]);
  1040.         return TCL_ERROR;
  1041.     }
  1042.     XtRemoveInput(inputId);
  1043.     } else
  1044.  
  1045.     if ((c == 'r') && (strcmp(argv[1], "removeTimer") == 0)) {
  1046.     XtIntervalId timerId;
  1047.  
  1048.     
  1049.     if (argc < 3) {
  1050.         sprintf(interp->result, "wrong # args: should be \"%.50s removeTimer \
  1051. timerID\"", argv[0]);
  1052.         return TCL_ERROR;
  1053.     }
  1054.  
  1055.     if (sscanf(argv[2], "timerId-%lu", &timerId) < 1) {
  1056.         sprintf(interp->result, "removeTimer: illegal timerId \"%s\"",
  1057.             argv[2]);
  1058.         return TCL_ERROR;
  1059.     }
  1060.     XtRemoveTimeOut(timerId);
  1061.     } else
  1062.  
  1063.     if ((c == 'm') && (strcmp(argv[1], "mainLoop") == 0)) {
  1064.     XtAppMainLoop(XtWidgetToApplicationContext(wPtr->widget));
  1065.  
  1066.     } else {
  1067.         return Tm_ShellWidgetCmd(clientData, interp, argc, argv);
  1068.     }
  1069.     return TCL_OK;
  1070. }
  1071.  
  1072.  
  1073. /*
  1074.  *--------------------------------------------------------------
  1075.  *
  1076.  * Tm_DrawingWidgetCmd --
  1077.  *
  1078.  *    This function processes the commands that may be applied
  1079.  *    to a drawing widget such as DrawnButton and DrawingArea.
  1080.  *
  1081.  * Results:
  1082.  *
  1083.  * Side effects:
  1084.  *
  1085.  *--------------------------------------------------------------
  1086.  */
  1087.  
  1088. int
  1089. Tm_DrawnWidgetCmd (clientData, interp, argc, argv)
  1090.     ClientData clientData;
  1091.     Tcl_Interp *interp;
  1092.     int argc;
  1093.     char **argv;
  1094. {
  1095.     Tm_Widget *wPtr = (Tm_Widget *) clientData;
  1096.     Widget w;
  1097.     char c;
  1098.  
  1099.     if (argc < 2) {
  1100.     sprintf(interp->result,
  1101.         "wrong # args: should be \"%.50s option [arg arg ...]\"",
  1102.         argv[0]);
  1103.     return TCL_ERROR;
  1104.     }
  1105.  
  1106.     w = wPtr -> widget;
  1107.  
  1108.     c = argv[1][0];
  1109.  
  1110.     if ((c == 'd') && (strcmp(argv[1], "drawImageString") == 0)) {
  1111. /*
  1112.     void *p;
  1113. */
  1114.     long p;
  1115.     GC gc;
  1116.     int x, y;
  1117.     Window win;
  1118.     Display *display;
  1119.     int length;
  1120.     char *string;
  1121.  
  1122.         if (argc != 6) {
  1123.             sprintf(interp->result,
  1124.             "wrong # args: should be \"%.50s drawImageString gc x y string\"",
  1125.             argv[0]);
  1126.         return TCL_ERROR;
  1127.         }
  1128. /*    %p may be broken on the Sun? So fit it into an XtArgVal
  1129.     sscanf(argv[2], "%p", &p);
  1130. */
  1131.     if (sscanf(argv[2], "gc-%lu", &p) < 1) {;
  1132.         sprintf(interp->result, "drawImageString: illegal gc \"%s\"",
  1133.             argv[2]);
  1134.         return TCL_ERROR;
  1135.     }
  1136.     gc = (GC) p;
  1137.     Tcl_GetInt(interp, argv[3], &x);
  1138.     Tcl_GetInt(interp, argv[4], &y);
  1139.     string = argv[5];
  1140.     length = strlen(string);
  1141.  
  1142.     display = XtDisplay(w);
  1143.     win = XtWindow(w);
  1144.  
  1145.     XDrawImageString(display, win, gc, x, y, string, length); 
  1146.     } else if ((c == 'd') && (strcmp(argv[1], "drawArc") == 0)) {
  1147.  
  1148.     long p;
  1149.     GC gc;
  1150.     int x, y;
  1151.     unsigned int width, height;
  1152.     int angle1, angle2;
  1153.     Window win;
  1154.     Display *display;
  1155.     int length;
  1156.     char *string;
  1157.  
  1158.         if (argc != 9) {
  1159.             sprintf(interp->result,
  1160.             "wrong # args: should be \"%.50s drawArc gc x y width height angle1 angle2\"",
  1161.             argv[0]);
  1162.         return TCL_ERROR;
  1163.         }
  1164.     if (sscanf(argv[2], "gc-%lu", &p) < 1) {;
  1165.         sprintf(interp->result, "drawArc: illegal gc \"%s\"",
  1166.             argv[2]);
  1167.         return TCL_ERROR;
  1168.     }
  1169.     gc = (GC) p;
  1170.     Tcl_GetInt(interp, argv[3], &x);
  1171.     Tcl_GetInt(interp, argv[4], &y);
  1172.     Tcl_GetInt(interp, argv[5], &width);
  1173.     Tcl_GetInt(interp, argv[6], &height);
  1174.     Tcl_GetInt(interp, argv[7], &angle1);
  1175.     Tcl_GetInt(interp, argv[8], &angle2);
  1176.  
  1177.     display = XtDisplay(w);
  1178.     win = XtWindow(w);
  1179.  
  1180.     XDrawArc(display, win, gc, x, y, width, height, angle1, angle2); 
  1181.     } else if ((c == 'd') && (strcmp(argv[1], "drawLine") == 0)) {
  1182.  
  1183.     long p;
  1184.     GC gc;
  1185.     int x1, y1, x2, y2;
  1186.     Window win;
  1187.     Display *display;
  1188.     int length;
  1189.     char *string;
  1190.  
  1191.         if (argc != 7) {
  1192.             sprintf(interp->result,
  1193.             "wrong # args: should be \"%.50s drawLine gc x1 y1 x2 y2\"",
  1194.             argv[0]);
  1195.         return TCL_ERROR;
  1196.         }
  1197.     if (sscanf(argv[2], "gc-%lu", &p) < 1) {;
  1198.         sprintf(interp->result, "drawLine: illegal gc \"%s\"",
  1199.             argv[2]);
  1200.         return TCL_ERROR;
  1201.     }
  1202.     gc = (GC) p;
  1203.     Tcl_GetInt(interp, argv[3], &x1);
  1204.     Tcl_GetInt(interp, argv[4], &y1);
  1205.     Tcl_GetInt(interp, argv[5], &x2);
  1206.     Tcl_GetInt(interp, argv[6], &y2);
  1207.  
  1208.     display = XtDisplay(w);
  1209.     win = XtWindow(w);
  1210.  
  1211.     XDrawLine(display, win, gc, x1, y1, x2, y2); 
  1212.     } else {
  1213.         return Tm_AnyWidgetCmd(clientData, interp, argc, argv);
  1214.     }
  1215.     return TCL_OK;
  1216. }
  1217.  
  1218.  
  1219. /*
  1220.  *--------------------------------------------------------------
  1221.  *
  1222.  * Tm_TextWidgetCmd --
  1223.  *
  1224.  *    handles the methods that may be requested of Text widgets.
  1225.  *
  1226.  * Results:
  1227.  *
  1228.  * Side effects:
  1229.  *
  1230.  *--------------------------------------------------------------
  1231.  */
  1232.  
  1233. int
  1234. Tm_TextWidgetCmd (clientData, interp, argc, argv)
  1235.     ClientData clientData;
  1236.     Tcl_Interp *interp;
  1237.     int argc;
  1238.     char **argv;
  1239. {
  1240.     Tm_Widget *wPtr = (Tm_Widget *) clientData;
  1241.     Widget w = wPtr->widget;
  1242.     Display *display;
  1243.     Time timeStamp;
  1244.  
  1245.     if (argc < 2) {
  1246.     sprintf(interp->result,
  1247.         "wrong # args: should be \"%.50s option [arg arg ...]\"",
  1248.         argv[0]);
  1249.     return TCL_ERROR;
  1250.     }
  1251.     
  1252.     display = XtDisplay(wPtr->widget);
  1253.     timeStamp = XtLastTimestampProcessed(display);
  1254.  
  1255.     if (strcmp(argv[1], "losingFocusCallback") == 0) {
  1256.         Tm_ClientData *client_data;
  1257.  
  1258.         if (argc != 3) {
  1259.             sprintf(interp->result,
  1260.                 "wrong # args: should be \"%.50s losingFocusCallback callback\"",
  1261.                 argv[0]);
  1262.             return TCL_ERROR;
  1263.         }
  1264.         client_data = (Tm_ClientData *) XtMalloc(sizeof(Tm_ClientData));
  1265.         client_data->callback_func = XtNewString(argv[2]);
  1266.         client_data->widget_info = wPtr;
  1267.  
  1268.     XtAddCallback(wPtr->widget, XmNlosingFocusCallback,
  1269.             Tm_TextVerifyCallbackHandler, (XtPointer) client_data);
  1270.         XtAddCallback(wPtr->widget, XmNdestroyCallback, 
  1271.                 Tm_DestroyReclaimHandler, (XtPointer) client_data);
  1272.     } else
  1273.  
  1274.     if (strcmp(argv[1], "modifyVerifyCallback") == 0) {
  1275.         Tm_ClientData *client_data;
  1276.  
  1277.         if (argc != 3) {
  1278.             sprintf(interp->result,
  1279.                 "wrong # args: should be \"%.50s modifyVerifyCallback callback\"",
  1280.                 argv[0]);
  1281.             return TCL_ERROR;
  1282.         }
  1283.         client_data = (Tm_ClientData *) XtMalloc(sizeof(Tm_ClientData));
  1284.         client_data->callback_func = XtNewString(argv[2]);
  1285.         client_data->widget_info = wPtr;
  1286.  
  1287.     XtAddCallback(wPtr->widget, XmNmodifyVerifyCallback,
  1288.             Tm_TextVerifyCallbackHandler, (XtPointer) client_data);
  1289.         XtAddCallback(wPtr->widget, XmNdestroyCallback, 
  1290.                 Tm_DestroyReclaimHandler, (XtPointer) client_data);
  1291.     } else
  1292.  
  1293.     if (strcmp(argv[1], "motionVerifyCallback") == 0) {
  1294.         Tm_ClientData *client_data;
  1295.  
  1296.         if (argc != 3) {
  1297.             sprintf(interp->result,
  1298.                 "wrong # args: should be \"%.50s motionVerifyCallback callback\"",
  1299.                 argv[0]);
  1300.             return TCL_ERROR;
  1301.         }
  1302.         client_data = (Tm_ClientData *) XtMalloc(sizeof(Tm_ClientData));
  1303.         client_data->callback_func = XtNewString(argv[2]);
  1304.         client_data->widget_info = wPtr;
  1305.  
  1306.     XtAddCallback(wPtr->widget, XmNmotionVerifyCallback,
  1307.             Tm_TextVerifyCallbackHandler, (XtPointer) client_data);
  1308.         XtAddCallback(wPtr->widget, XmNdestroyCallback, 
  1309.                 Tm_DestroyReclaimHandler, (XtPointer) client_data);
  1310.     } else
  1311.  
  1312.     if (strcmp(argv[1], "clearSelection") == 0) {
  1313.     XmTextClearSelection(wPtr->widget, timeStamp);
  1314.     } else
  1315.  
  1316.     if (strcmp(argv[1], "copy") == 0) {
  1317.     XmTextCopy(wPtr->widget, timeStamp);
  1318.     } else
  1319.  
  1320.     if (strcmp(argv[1], "cut") == 0) {
  1321.     XmTextCut(wPtr->widget, timeStamp);
  1322.     } else
  1323.  
  1324. #ifndef MOTIF11
  1325.     if (strcmp(argv[1], "disableRedisplay") == 0) {
  1326.     XmTextDisableRedisplay(w);
  1327.     } else
  1328. #endif
  1329.  
  1330. #ifndef MOTIF11
  1331.     if (strcmp(argv[1], "enableRedisplay") == 0) {
  1332.     XmTextEnableRedisplay(w);
  1333.     } else
  1334. #endif
  1335.  
  1336. #ifndef MOTIF11
  1337.     if (strcmp(argv[1], "findString") == 0) {
  1338.     long start;
  1339.     char *string;
  1340.     XmTextDirection direction;
  1341.     long position;
  1342.     char pos_str[16];
  1343.  
  1344.         if (argc != 6) {
  1345.             sprintf(interp->result,
  1346.                 "wrong # args: should be \"%.50s findString start string direction position\"",
  1347.                 argv[0]);
  1348.             return TCL_ERROR;
  1349.         }
  1350.     if (sscanf(argv[2], "%ld", &start) < 1) {
  1351.         sprintf(interp->result, "non-integer start param for %.50s findString",
  1352.         argv[0]);
  1353.         return TCL_ERROR;
  1354.     }
  1355.     string = argv[3];
  1356.     if (strcmp(argv[4], "forward") == 0) {
  1357.         direction = XmTEXT_FORWARD;
  1358.     } else
  1359.     if (strcmp(argv[4], "backward") == 0) {
  1360.         direction = XmTEXT_BACKWARD;
  1361.     } else {
  1362.         sprintf(interp->result, "%.50s findString: direction must be forward or backward",
  1363.         argv[0]);
  1364.         return TCL_ERROR;
  1365.     }
  1366.     
  1367.     if (XmTextFindString(w, start, string, direction, &position)) {
  1368.         sprintf(interp->result, "true");
  1369.         sprintf(pos_str, "%ld", position);
  1370.         if (Tcl_SetVar(interp, argv[5], pos_str, 0) == NULL) {
  1371.         return TCL_ERROR;
  1372.         } else
  1373.         return TCL_OK;
  1374.     } else {
  1375.         sprintf(interp->result, "false");
  1376.         return TCL_OK;
  1377.     }
  1378.     } else
  1379. #endif
  1380.  
  1381.     if (strcmp(argv[1], "getEditable") == 0) {
  1382.     if (XmTextGetEditable(w)) {
  1383.         interp->result = "true";
  1384.     } else {
  1385.         interp->result = "false";
  1386.     }
  1387.     return TCL_OK;
  1388.     } else
  1389.  
  1390.     if (strcmp(argv[1], "getInsertionPosition") == 0) {
  1391.     XmTextPosition pos;
  1392.  
  1393.     pos = XmTextGetInsertionPosition(w);
  1394.     sprintf(interp->result, "%ld", pos);
  1395.     return TCL_OK;
  1396.     } else
  1397.  
  1398.     if (strcmp(argv[1], "getLastPosition") == 0) {
  1399.     XmTextPosition pos;
  1400.  
  1401.     pos = XmTextGetLastPosition(w);
  1402.     sprintf(interp->result, "%ld", pos);
  1403.     return TCL_OK;
  1404.     } else
  1405.  
  1406.     if (strcmp(argv[1], "getSelection") == 0) {
  1407.     char *sel;
  1408.  
  1409.     sel = XmTextGetSelection(w);
  1410.     Tcl_SetResult(interp, sel, TCL_VOLATILE);
  1411.     XtFree(sel);
  1412.     return TCL_OK;
  1413.     } else
  1414.  
  1415.     if (strcmp(argv[1], "getSelectionPosition") == 0) {
  1416.     XmTextPosition left, right;
  1417.     char buf[16];
  1418.  
  1419.         if (argc != 4) {
  1420.             sprintf(interp->result,
  1421.                 "wrong # args: should be \"%.50s getSelectionPosition left right\"",
  1422.                 argv[0]);
  1423.             return TCL_ERROR;
  1424.         }
  1425.     if (XmTextGetSelectionPosition(w, &left, &right)) {
  1426.         interp->result = "true";
  1427.     } else {
  1428.         interp->result = "false";
  1429.     }
  1430.     sprintf(buf, "%ld", left);
  1431.     Tcl_SetVar(interp, argv[2], buf, 0);
  1432.     sprintf(buf, "%ld", right);
  1433.     Tcl_SetVar(interp, argv[3], buf, 0);
  1434.  
  1435.     return TCL_OK;
  1436.     } else
  1437.  
  1438.     if (strcmp(argv[1], "getString") == 0) {
  1439.     char *str;
  1440.  
  1441.     str = XmTextGetString(wPtr->widget);
  1442.     Tcl_SetResult(interp, str, TCL_VOLATILE);
  1443.     XtFree(str);
  1444.     } else
  1445.  
  1446. #ifndef MOTIF11
  1447.     if (strcmp(argv[1], "getSubstring") == 0) {
  1448.     XmTextPosition start;
  1449.     int num_chars;
  1450.     int buffer_size;
  1451.     char *buffer;
  1452.     int ret;
  1453.  
  1454.         if (argc != 5) {
  1455.             sprintf(interp->result,
  1456.                 "wrong # args: should be \"%.50s getSubstring start num_chars buffer\"",
  1457.                 argv[0]);
  1458.             return TCL_ERROR;
  1459.         }
  1460.  
  1461.     if (sscanf(argv[2], "%ld", &start) < 1) {
  1462.         sprintf(interp->result, "%.50s getSubstring: bad num_chars",
  1463.         argv[0]);
  1464.         return TCL_ERROR;
  1465.     }
  1466.     if (sscanf(argv[3], "%ld", &num_chars) < 1) {
  1467.         sprintf(interp->result, "%.50s getSubstring: bad num_chars",
  1468.         argv[0]);
  1469.         return TCL_ERROR;
  1470.     }
  1471.  
  1472.     /* MB_CUR_MAX defaults to zero on Sun */
  1473.     if (MB_CUR_MAX >= 1) {
  1474.         buffer_size = num_chars * MB_CUR_MAX + 1;
  1475.     } else {
  1476.         buffer_size = num_chars + 1;
  1477.     }
  1478.     buffer = XtMalloc(buffer_size);
  1479.     
  1480.     ret = XmTextGetSubstring(w, start, num_chars, buffer_size, buffer);
  1481.     Tcl_SetVar(interp, argv[4], buffer, 0);
  1482.  
  1483.     if ( ret == XmCOPY_SUCCEEDED) {
  1484.         interp->result = "succeeded";
  1485.     } else
  1486.     if (ret == XmCOPY_TRUNCATED) {
  1487.         interp->result = "truncated";
  1488.     } else
  1489.     if (ret == XmCOPY_FAILED) {
  1490.         interp->result = "failed";
  1491.     }
  1492.  
  1493.     XtFree(buffer);
  1494.     return TCL_OK;
  1495.     } else
  1496. #endif
  1497.  
  1498.     if (strcmp(argv[1], "getTopCharacter") == 0) {
  1499.     XmTextPosition pos;
  1500.  
  1501.     pos = XmTextGetTopCharacter(w);
  1502.     sprintf(interp->result, "%ld", pos);
  1503.     return TCL_OK;
  1504.     } else
  1505.  
  1506.     if (strcmp(argv[1], "insert") == 0) {
  1507.     XmTextPosition pos;
  1508.  
  1509.         if (argc != 4) {
  1510.             sprintf(interp->result,
  1511.                 "wrong # args: should be \"%.50s insert position value\"",
  1512.                 argv[0]);
  1513.             return TCL_ERROR;
  1514.         }
  1515.     
  1516.     if (sscanf(argv[2], "%ld", &pos) < 1) {
  1517.         sprintf(interp->result, "%.50s insert: bad position", argv[0]);
  1518.         return TCL_ERROR;
  1519.     }
  1520.     
  1521.     XmTextInsert(w, pos, argv[3]);
  1522.  
  1523.     return TCL_OK;
  1524.     } else
  1525.  
  1526.     if (strcmp(argv[1], "paste") == 0) {
  1527.     XmTextPaste(wPtr->widget);
  1528.     } else
  1529.  
  1530.     if (strcmp(argv[1], "remove") == 0) {
  1531.     XmTextRemove(wPtr->widget);
  1532.     } else
  1533.  
  1534.     if (strcmp(argv[1], "replace") == 0) {
  1535.     XmTextPosition from, to;
  1536.  
  1537.         if (argc != 5) {
  1538.             sprintf(interp->result,
  1539.                 "wrong # args: should be \"%.50s replace from to value\"",
  1540.                 argv[0]);
  1541.             return TCL_ERROR;
  1542.         }
  1543.  
  1544.     if (sscanf(argv[2], "%ld", &from) < 1) {
  1545.         sprintf(interp->result, "%.50s replace: bad from value", argv[0]);
  1546.         return TCL_ERROR;
  1547.     }
  1548.     if (sscanf(argv[3], "%ld", &to) < 1) {
  1549.         sprintf(interp->result, "%.50s replace: bad to value", argv[0]);
  1550.         return TCL_ERROR;
  1551.     }
  1552.     
  1553.     XmTextReplace(w, from, to, argv[4]);
  1554.     return TCL_OK;
  1555.     } else
  1556.  
  1557.     if (strcmp(argv[1], "scroll") == 0) {
  1558.     int lines;
  1559.  
  1560.         if (argc != 3) {
  1561.             sprintf(interp->result,
  1562.                 "wrong # args: should be \"%.50s scroll lines\"",
  1563.                 argv[0]);
  1564.         return TCL_ERROR;
  1565.     }
  1566.     
  1567.     if (Tcl_GetInt(interp, argv[2], &lines) != TCL_OK) {
  1568.         return TCL_ERROR;
  1569.     }
  1570.     XmTextScroll(w, lines);
  1571.         return TCL_OK;
  1572.     } else
  1573.  
  1574.     if (strcmp(argv[1], "setAddMode") == 0) {
  1575.     int state;
  1576.  
  1577.         if (argc != 3) {
  1578.             sprintf(interp->result,
  1579.                 "wrong # args: should be \"%.50s setAddMode boolean\"",
  1580.                 argv[0]);
  1581.         return TCL_ERROR;
  1582.     }
  1583.  
  1584.     if (Tcl_GetBoolean(interp, argv[2], &state) != TCL_OK) {
  1585.         return TCL_ERROR;
  1586.     }
  1587.  
  1588.     XmTextSetAddMode(w, state);
  1589.     return TCL_OK;
  1590.     } else
  1591.  
  1592.     if (strcmp(argv[1], "setEditable") == 0) {
  1593.     int editable;
  1594.  
  1595.         if (argc != 3) {
  1596.             sprintf(interp->result,
  1597.                 "wrong # args: should be \"%.50s setEditable boolean\"",
  1598.                 argv[0]);
  1599.         return TCL_ERROR;
  1600.     }
  1601.  
  1602.     if (Tcl_GetBoolean(interp, argv[2], &editable) != TCL_OK) {
  1603.         return TCL_ERROR;
  1604.     }
  1605.  
  1606.     XmTextSetEditable(w, editable);
  1607.     return TCL_OK;
  1608.     } else
  1609.  
  1610.     if (strcmp(argv[1], "setHighlight") == 0) {
  1611.     XmTextPosition left, right;
  1612.     XmHighlightMode mode;
  1613.  
  1614.         if (argc != 5) {
  1615.             sprintf(interp->result,
  1616.                 "wrong # args: should be \"%.50s setHighlight left right mode\"",
  1617.                 argv[0]);
  1618.         return TCL_ERROR;
  1619.     }
  1620.  
  1621.     if (sscanf(argv[2], "%ld", &left) < 1) {
  1622.         sprintf(interp->result, "%.50s setHighlight: bad \"left\" value", argv[0]);
  1623.         return TCL_ERROR;
  1624.     }
  1625.     if (sscanf(argv[3], "%ld", &right) < 1) {
  1626.         sprintf(interp->result, "%.50s setHighlight: bad \"right\" value", argv[0]);
  1627.         return TCL_ERROR;
  1628.     }
  1629.  
  1630.     if (strcmp(argv[4], "normal") == 0) {
  1631.         mode = XmHIGHLIGHT_NORMAL;
  1632.     } else
  1633.     if (strcmp(argv[4], "selected") == 0) {
  1634.         mode = XmHIGHLIGHT_SELECTED;
  1635.     } else
  1636.     if (strcmp(argv[4], "secondary_selected") == 0) {
  1637.         mode = XmHIGHLIGHT_SECONDARY_SELECTED;
  1638.     } else {
  1639.         sprintf(interp->result, "%.50s setHighlight: bad \"highlight\" value", argv[0]);
  1640.         return TCL_ERROR;
  1641.     }
  1642.         
  1643.     XmTextSetHighlight(w, left, right, mode);
  1644.     return TCL_OK;
  1645.     } else
  1646.  
  1647.     if (strcmp(argv[1], "setInsertionPosition") == 0) {
  1648.     XmTextPosition pos;
  1649.  
  1650.         if (argc != 3) {
  1651.             sprintf(interp->result,
  1652.                 "wrong # args: should be \"%.50s setInsertionPosition position\"",
  1653.                 argv[0]);
  1654.             return TCL_ERROR;
  1655.         }
  1656.  
  1657.     if (sscanf(argv[2], "%ld", &pos) < 1) {
  1658.         sprintf(interp->result, "%.50s setInsertionPosition: bad \"position\" value", argv[0]);
  1659.         return TCL_ERROR;
  1660.     }
  1661.  
  1662.     XmTextSetInsertionPosition(w, pos);
  1663.     return TCL_OK;
  1664.     } else
  1665.  
  1666.     if (strcmp(argv[1], "setSelection") == 0) {
  1667.     XmTextPosition first, last;
  1668.     Time tim;
  1669.  
  1670.         if (argc != 4) {
  1671.             sprintf(interp->result,
  1672.                 "wrong # args: should be \"%.50s setSelection first last\"",
  1673.                 argv[0]);
  1674.             return TCL_ERROR;
  1675.         }
  1676.  
  1677.     if (sscanf(argv[2], "%ld", &first) < 1) {
  1678.         sprintf(interp->result, "%.50s setSelection: bad \"first\" value", argv[0]);
  1679.         return TCL_ERROR;
  1680.     }
  1681.     if (sscanf(argv[3], "%ld", &last) < 1) {
  1682.         sprintf(interp->result, "%.50s setSelection: bad \"last\" value", argv[0]);
  1683.         return TCL_ERROR;
  1684.     }
  1685.  
  1686.     tim = XtLastTimestampProcessed(XtDisplay(w));
  1687.  
  1688.     XmTextSetSelection(w, first, last, tim);
  1689.     return TCL_OK;
  1690.     } else
  1691.  
  1692.     if (strcmp(argv[1], "setSource") == 0) {
  1693.     XmTextPosition top, position;
  1694.     XmTextSource source;
  1695.     Widget w_old;
  1696.     Tm_Widget *info;
  1697.  
  1698.         if (argc != 5) {
  1699.             sprintf(interp->result,
  1700.                 "wrong # args: should be \"%.50s setSource source top position\"",
  1701.                 argv[0]);
  1702.             return TCL_ERROR;
  1703.         }
  1704.  
  1705.     info = Tm_WidgetInfoFromPath(interp, argv[2]);
  1706.     if (info == NULL) {
  1707.         sprintf(interp->result, "%.50s setSource: bad \"widget\" value", argv[0]);
  1708.         return TCL_ERROR;
  1709.     }
  1710.     w_old = info->widget;
  1711.     source = XmTextGetSource(w_old);
  1712.         
  1713.     if (sscanf(argv[3], "%ld", &top) < 1) {
  1714.         sprintf(interp->result, "%.50s setSource: bad \"top\" value", argv[0]);
  1715.         return TCL_ERROR;
  1716.     }
  1717.     if (sscanf(argv[4], "%ld", &position) < 1) {
  1718.         sprintf(interp->result, "%.50s setSource: bad \"position\" value", argv[0]);
  1719.         return TCL_ERROR;
  1720.     }
  1721.  
  1722.     XmTextSetSource(w, source, top, position);
  1723.     return TCL_OK;
  1724.     } else
  1725.  
  1726.     if (strcmp(argv[1], "setString") == 0) {
  1727.         if (argc != 3) {
  1728.             sprintf(interp->result,
  1729.                 "wrong # args: should be \"%.50s setString value\"",
  1730.                 argv[0]);
  1731.             return TCL_ERROR;
  1732.         }
  1733.     
  1734.     XmTextSetString(w, argv[2]);
  1735.     return TCL_OK;
  1736.     } else
  1737.  
  1738.     if (strcmp(argv[1], "setTopCharacter") == 0) {
  1739.     XmTextPosition top;
  1740.  
  1741.         if (argc != 3) {
  1742.             sprintf(interp->result,
  1743.                 "wrong # args: should be \"%.50s setTopCharacter top\"",
  1744.                 argv[0]);
  1745.             return TCL_ERROR;
  1746.         }
  1747.  
  1748.     if (sscanf(argv[2], "%ld", &top) < 1) {
  1749.         sprintf(interp->result, "%.50s setTopCharacter: bad \"top\" value", argv[0]);
  1750.         return TCL_ERROR;
  1751.     }
  1752.  
  1753.     XmTextSetTopCharacter(w, top);
  1754.     return TCL_OK;
  1755.     } else
  1756.  
  1757.     if (strcmp(argv[1], "showPosition") == 0) {
  1758.     XmTextPosition pos;
  1759.  
  1760.         if (argc != 3) {
  1761.             sprintf(interp->result,
  1762.                 "wrong # args: should be \"%.50s showPosition position\"",
  1763.                 argv[0]);
  1764.             return TCL_ERROR;
  1765.         }
  1766.  
  1767.     if (sscanf(argv[2], "%ld", &pos) < 1) {
  1768.         sprintf(interp->result, "%.50s showPosition: bad \"position\" value", argv[0]);
  1769.         return TCL_ERROR;
  1770.     }
  1771.  
  1772.     XmTextShowPosition(w, pos);
  1773.     return TCL_OK;
  1774.     } else {
  1775.         return Tm_AnyWidgetCmd(clientData, interp, argc, argv);
  1776.     }
  1777.     return TCL_OK;
  1778. }
  1779.  
  1780. /*
  1781.  *--------------------------------------------------------------
  1782.  *
  1783.  * Tm_PopupMenuWidgetCmd --
  1784.  *
  1785.  *    handles the methods that may be requested of Popup menus.
  1786.  *
  1787.  * Results:
  1788.  *
  1789.  * Side effects:
  1790.  *
  1791.  *--------------------------------------------------------------
  1792.  */
  1793.  
  1794. int
  1795. Tm_PopupMenuWidgetCmd (clientData, interp, argc, argv)
  1796.     ClientData clientData;
  1797.     Tcl_Interp *interp;
  1798.     int argc;
  1799.     char **argv;
  1800. {
  1801.     Tm_Widget *wPtr = (Tm_Widget *) clientData;
  1802.     Widget w = wPtr->widget;
  1803.     XButtonPressedEvent *event;
  1804.  
  1805.     if (strcmp(argv[1], "menuPosition") == 0) {
  1806.         if (argc != 3) {
  1807.             sprintf(interp->result,
  1808.                 "wrong # args: should be \"%.50s menuPosition event\"",
  1809.                 argv[0]);
  1810.             return TCL_ERROR;
  1811.         }
  1812.     if (sscanf(argv[2], "event-%lu", &event) < 1) {
  1813.             sprintf(interp->result,
  1814.                 "wrong event arg: should be \"%.50s menuPosition event\"",
  1815.                 argv[0]);
  1816.             return TCL_ERROR;
  1817.     }
  1818.     XmMenuPosition(w, event);
  1819.     return TCL_OK;
  1820.     } else {
  1821.         return Tm_AnyWidgetCmd(clientData, interp, argc, argv);
  1822.     }
  1823.     return TCL_OK;
  1824. }
  1825.  
  1826. /*
  1827.  *--------------------------------------------------------------
  1828.  *
  1829.  * Tm_ShellWidgetCmd --
  1830.  *
  1831.  *    handles the methods that may be requested of Shells
  1832.  *
  1833.  * Results:
  1834.  *
  1835.  * Side effects:
  1836.  *
  1837.  *--------------------------------------------------------------
  1838.  */
  1839.  
  1840. int
  1841. Tm_ShellWidgetCmd (clientData, interp, argc, argv)
  1842.     ClientData clientData;
  1843.     Tcl_Interp *interp;
  1844.     int argc;
  1845.     char **argv;
  1846. {
  1847.     Tm_Widget *wPtr = (Tm_Widget *) clientData;
  1848.     Widget w = wPtr->widget;
  1849.  
  1850.     if (strcmp(argv[1], "popup") == 0) {
  1851. /*    should we allow grab type to be set?
  1852.         if (argc != 3) {
  1853.             sprintf(interp->result,
  1854.                 "wrong # args: should be \"%.50s menuPosition event\"",
  1855.                 argv[0]);
  1856.             return TCL_ERROR;
  1857.         }
  1858. */
  1859.     XtPopup(w, XtGrabNone);
  1860.     return TCL_OK;
  1861.     } else
  1862.     if (strcmp(argv[1], "popup") == 0) {
  1863.     XtPopdown(w);
  1864.     return TCL_OK;
  1865.     } else {
  1866.         return Tm_AnyWidgetCmd(clientData, interp, argc, argv);
  1867.     }
  1868.     return TCL_OK;
  1869. }
  1870.